home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
graphics
/
circuit_macros
/
examples
/
ex7.m4
< prev
next >
Wrap
Text File
|
1994-03-13
|
3KB
|
93 lines
.PS
bight = 1.8i
bigwd = 1.6i
lettersp = 0.2
overlap = 0.1
qminusl = 0.6
r = 0.3
ex = 0.12
del = 0.1
ddel = del * sqrt(2)
eps = 0.01
widg = 1
F: box invis wid bigwd ht bight
E: box invis wid bigwd ht bight
G: box invis wid widg ht bight
box wid G.ne.x-F.nw.x ht F.nw.y-F.sw.y with .sw at F.sw
box wid last box.wid+2*eps ht last box.ht+2*eps with .c at last box.c
line from F.ne+(-eps/2,0) to F.se+(-eps/2,0)
line from F.ne+( eps/2,0) to F.se+( eps/2,0)
line from E.ne+(-eps/2,0) to E.se+(-eps/2,0)
line from E.ne+( eps/2,0) to E.se+( eps/2,0)
box invis ht 0.2 wid 0.2 "\Large $F$" with .c at F.s + (0,-lettersp)
box invis ht 0.2 wid 0.2 "\Large $E$" with .c at E.s + (0,-lettersp)
box invis ht 0.2 wid 0.2 "\Large $G$" with .c at G.s + (0,-lettersp)
XF: F.se + (-qminusl,qminusl)
XE: E.se + (-qminusl,qminusl)
line from (F.w,XF) to XF + (overlap,0)
line from (XF,F.n) to XF + (0,-overlap)
line from XF + (-r,0) to (XF.x-r,F.n.y)
line dashed from XF to F.se
line from (E.w,XE) to XE + (overlap,0)
line from (XE,E.n) to XE + (0,-overlap)
line from XE + (-r,0) to (XE.x-r,E.n.y)
line dashed from XE to E.se
line from XE + (0,r) to E.w.x,XE.y+r
line from (G.w,XE) to (G.e,XE)
"$q$" at F.sw + (-ex,ex/3)
"$\ell$" at (F.w,XF) + (-ex,ex/3)
"$t$" at (XF,F.n) + (-ex/2,ex)
"$t$" at (XE,E.n) + (-ex/2,ex)
"$n$$+$$p$$+$$m$" at G.ne + (0,ex)
"\large $0$" at XF + (-r/2,(bight-qminusl)/2)
"\large $0$" at XF + (qminusl/2,(bight-qminusl)/2)
"\large $0$" at XE + (-r/2,(bight-qminusl)/2)
"\large $0$" at XE + (qminusl/2,(bight-qminusl)/2)
"$\left.\strut\right\} r$" at XE + (ex,r/2)
"$\overbrace{\phantom{\hbox to 0.7in{}}}^{\hbox{$k$}}$" at \
F.nw + ((bigwd-qminusl-r)/2,ex*1.2)
"$\overbrace{\phantom{\hbox to 0.7in{}}}^{\hbox{$k$}}$" at \
E.nw + (bigwd/2-qminusl/2-r/2,ex*1.2)
line invis up 0.3 from F.nw
thinlines_
for y = ddel to widg by ddel do {
line from G.e.x,G.s.y+y to G.e.x-y,G.s.y }
for y = last line.start.y+ddel to G.n.y by ddel do {
line from G.e.x,y to G.w.x,y-widg }
for y = last line.end.y+ddel to G.n.y by ddel do {
line from G.w.x,y to G.w.x+G.n.y-y,G.n.y }
for x = del to XF.x-F.w.x-r by del do {
line from E.w.x+x,E.nw.y down bight-qminusl
line from F.w.x+x,F.nw.y down bight-qminusl}
for y = XE.y+del to XE.y+r by del do { line from XE.x,y left r }
for x = ddel to qminusl by ddel do {
line from E.w.x+x,XE.y to E.w.x,XE.y-x
line from F.w.x+x,XF.y to F.w.x,XF.y-x }
for x = last line.start.x-F.w.x+ddel to XF.x-F.w.x by ddel do {
line from E.w.x+x,XE.y to E.w.x+x-qminusl,E.s.y
line from F.w.x+x,XF.y to F.w.x+x-qminusl,F.s.y }
for x = last line.end.x-F.w.x+ddel to bigwd by ddel do {
line from E.w.x+x,E.s.y to \
E.w.x+x+(bigwd-x)*0.5,E.s.y+(bigwd-x)*0.5
line from F.w.x+x,F.s.y to \
F.w.x+x+(bigwd-x)*0.5,F.s.y+(bigwd-x)*0.5 }
.PE